www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\admin\adminModel\D_del_no_use_custom_adminpage.asp

    <%


'**************************************************************
' 新动软网站管理系统
' 官方网站: http://www.aspcpu.com
' 系统作者: 阮丁远(网名：天下程序)
' Copyright 新动软网站管理系统 版权所有
'**************************************************************


%>




<%

if qx_if_max=0 or qx_if_max="" then


response.redirect "../D_suodinguser.asp"
end if
%>


<%	





set filea=new Cls_FSO


set rs11=server.CreateObject("adodb.recordset")
       
rs11.open "select * from ND_models_reg",conn,1,1




'删除所有在添加子模型时点 编辑后台管理页 时自动新建的没用的临时的后台管理页：
do while not rs11.eof 


biao_rnd_qianzhui=rs11("all_biao_rnd_qianzhui")
model_folder_path=rs11("model_folder_path_name")


ss4=filea.ShowFileList(server.mappath("../../Model/Models/"&model_folder_path&"/custom_adminpages/"))


if ss4=-1 or ss4="" then
numf2=0
else
ss4=left(ss4,len(ss4)-1) '去掉最后一个|号

'处理文件

fl2=split(ss4,"|")


numf2=ubound(fl2)+1


end if


for fnnn=1 to numf2

fnameaaz=fl2(fnnn-1)
have_mfile=0

'----------------------
zimodelxmlph="../../Model/Models/"&model_folder_path&"/"&iconfigbiaosfile
strXMLFile = Server.MapPath(zimodelxmlph)
oXMLDomg.Load(strXMLFile)

set nodeazz=oXMLDomg.documentElement.selectNodes("zimodels/zimodel")
lentaazz=nodeazz.length
for liiz=1 to lentaazz




namezzz=cstr(trim(nodeazz(liiz-1).selectSingleNode("name").text))
'----------------------
zimodelxmlph="../../Model/Models/"&model_folder_path&"/"&iconfigbiaosfile
strXMLFile = Server.MapPath(zimodelxmlph)
oXMLDomg.Load(strXMLFile)

set nodek=oXMLDomg.documentElement.selectSingleNode("zimodels/zimodel[name='"&namezzz&"']")

set nodea3=nodek.selectNodes("custom_pages/custom_page")
lentaaa=nodea3.length



need_exit1=0
for lii=1 to lentaaa

page_id_xx=cstr(trim(nodea3(lii-1).selectSingleNode("page_id").text))




if lcase(page_id_xx&".asp")=lcase(fnameaaz) then
have_mfile=1
exit for
need_exit1=1 
end if


next

if need_exit1=1 then exit for

next











if have_mfile=0 then

pathf1="../../Model/Models/"&model_folder_path&"/custom_adminpages/"&fnameaaz
if filea.ReportFileStatus(server.mappath(pathf1))=1 and instr(1,fnameaaz,"www_aspcpu_com_newds",1)=0 then
call deletefile(pathf1)
end if

end if












next

rs11.movenext
loop


%>